home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Variations / gen-variants-mask < prev    next >
Lisp/Scheme  |  1996-12-31  |  517b  |  12 lines
  1. gen-variants-mask seed number symbol-pattern mask-pattern 
  2.  
  3. Use this to create a sequence of number variants each of which is the product of random masking. 
  4.  
  5. (gen-variants-mask 0.12 1 '(a c s d e f e r) '(x x =))
  6. --> (a c s d e f e r a c s d = f e r)
  7.  
  8. As with other gen-variant functions the symbol-pattern 'theme' is placed at the head of the output. Should you wish to remove this, use the nthcdr function:
  9.  
  10. (setq mel3 (nthcdr 4 (gen-variants-mask nil 2 '(a b c d e f g))))
  11. --> (e f g a = c d e = = a b c d = f =)
  12.